home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1998 September / EnigmA AMIGA RUN 30 (1998)(G.R. Edizioni)(IT)[!][issue 1998-09].iso / earkit / news / thor / rexx / fse / quote.fse < prev    next >
Text File  |  1998-07-09  |  306b  |  24 lines
  1. /*
  2. ** $VER: Qoute.fse 1.0 (6.9.95)
  3. ** - qoutes all except empty lines
  4. */
  5.  
  6. options results
  7. qoutechar = ">"
  8.  
  9. YPOS
  10. currline = result
  11. XPOS
  12. currcolumn = result
  13. MSGLENGTH
  14. lastline = result
  15.  
  16. do i=1 to lastline
  17.   SETPOS 1 i
  18.   GETLINE
  19.   if(result ~= " ") then INSERTINPUT qoutechar
  20. end
  21.  
  22. SETPOS currcolumn currline
  23.  
  24.